home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 29 / Commodore_Disc_29_19xx_-_de.d64 / order 4.10 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  526b  |  22 lines
  1. 10 input"gebe den sp-wert an:";sp
  2. 20 rem copy zeichensatz
  3. 30 sys 51204,1,0,0,0
  4. 40 rem lese form 1
  5. 50 for x = 0  to 7 : read q : poke 30472+x,q : next
  6. 60 rem lese form 2
  7. 70 for x = 0  to 7 : read q : poke 30480+x,q : next
  8. 80 rem lese form 3
  9. 90 for x = 0  to 7 : read q : poke 30488+x,q : next
  10. 100 rem lese form 4
  11. 110 for x = 0  to 7 : read q : poke 30496+x,q : next
  12. 120 rem daten
  13. 130 data 255,255,255,255,255,255,255,255
  14. 140 data 0,126,126,126,126,126,126,0
  15. 150 data 0,0,62,62,62,62,0,0
  16. 160 data 0,0,0,30,30,0,0,0
  17. 170 rem gebe zeichen aus
  18. 180 poke 1024,127
  19. 190 rem bewegung
  20. 200 sys 51927,sp
  21. 210 goto200
  22.